unit UsersService;

interface

uses
  UsersInterface, uConfig, superobject, uTableMap;

type
  TUsersService = class(TInterfacedObject, IUsersInterface)
  private
    Db: TDB;
  public
    constructor Create(_Db: TDB);
    destructor Destroy; override;
    function checkuser(wh: ISuperObject): ISuperObject;
  end;

implementation

{ TUsersService }

function TUsersService.checkuser(wh: ISuperObject): ISuperObject;
begin
  Result := Db.FindFirst(tb_users, wh);
end;

constructor TUsersService.Create(_Db: TDB);
begin
  Db := _Db;
end;

destructor TUsersService.Destroy;
begin

  inherited;
end;

end.

